home *** CD-ROM | disk | FTP | other *** search
/ AM/FM: Amiga Musicians' Freeware Magazine 14 / AM-FM 14.adf / AMFM-14 < prev    next >
Encoding:
AmigaDOS Script File  |  1992-09-02  |  933 b   |  47 lines
  1. .key foo
  2.  
  3. AMFM14:c/cd AMFM14:
  4.  
  5. AMFM14:c/assign libs: AMFM14:libs
  6. AMFM14:c/assign s: AMFM14:s
  7. AMFM14:c/assign c: AMFM14:c
  8. AMFM14:c/assign devs: AMFM14:devs
  9. AMFM14:c/assign ENV: RAM:
  10.  
  11. assign >nil: exists NPlay:
  12. if not warn
  13.   assign OldNPlay: Nplay:
  14. endif
  15.  
  16. Assign NPlay: AMFM14:NPlay
  17.  
  18. AMFM14:c/MemCheck 600000
  19. if not warn
  20.     AMFM14:c/Copy AMFM14:c/Wait RAM:
  21.     AMFM14:c/AMFMMenu AMFM14:s/Music-menu
  22. else
  23.     echo "Sorry - not enough free memory for background music..."
  24. endif
  25.  
  26. Echo "  When the picture appears, you can get rid of it by pressing"
  27. Echo "  the RIGHT mouse button."
  28. AMFM14:c/PPShow AMFM14:Graphics/Coverpic.iff.pp
  29. ;Echo "Sorry, no disk space for any front-picture this time..."
  30.  
  31. AMFM14:c/Zoomwindows quiet
  32.  
  33. AMFM14:c/amfmmenu AMFM14:s/menu
  34.  
  35. AMFM14:c/Zoomwindows quiet
  36.  
  37. assign >nil: exists OldNPlay:
  38. if not warn
  39.   assign NPlay: OldNplay:
  40. endif
  41.  
  42. assign s: sys:s
  43. assign c: sys:c
  44. assign libs: sys:libs
  45. assign devs: sys:devs
  46. cd sys:
  47.